null {1}   1 .EXPLORER I
  10 NT=0;clear ;:input ;for A=1900to 3460step 40;CY=40;input B,C;%(A)=B;%(A+2)=C;next A
  20 for A=1to 32;CY=40;input B,C;%(B)=C;next A
  30 :return ;C=1902;for A=1to 8;for B=Cto C+1560step 40;%(B+2)=%(B+16384);%(B)=0;next B;C=C+2;next A
  40 for A=1918to 3478step 40;%(A)=0;next A
  50 box -40,32,80,24,2;for A=10to 1step -1;CY=40;print A;for B=1to 500;next B;next A;CY=40;print "IGNITION!"
  60 &(21)=255;&(23)=255;for A=3380to 3460step 40;%(A)=0;next A;A=A-320;CY=-40;print 
  70 for D=1to 12;C=A;for E=1to 8;%(C+rnd (Dmul 2)-D)=rnd (32767);C=C+40;next E;&(23)=255-(Dmul 21);print ;next D;&(23)=0;&(21)=0
  80 clear ;BC=0;FC=7;for S=1to 80;box rnd (160)-80,rnd (88)-44,1,1,1;next S;CY=24
  85 NT=0
  90 print "THE UNIVERSE IS FULL OF   MAGICAL THINGS, PATIENTLY WAITING FOR OUR WITS to   GROW SHARPER."
 100 print ;print "-EDEN PHILLPOTS"
:return ;run 
  -32254
     128
   10242
     128
       2
     128
       2
  -21846
  -32758
    8866
  -32758
  -21846
  -32758
    2720
  -24534
    8840
  -24534
  -32126
  -24534
  -32126
    8226
    8840
    8226
  -21846
   10786
  -21846
    8226
    8840
    8224
  -32126
  -24534
  -32126
    8224
    8840
  -24542
  -21846
   10784
  -21846
    8234
    8840
    8224
  -32126
  -24534
  -32126
    8224
    8840
    8226
  -21846
   10784
  -21846
    8226
    8840
    8226
  -32126
  -24534
  -32126
  -24534
    8840
  -22358
  -21846
  -22358
  -21846
  -22358
    8840
  -22358
  -32126
  -22358
  -32126
  -22358
    8840
  -22358
    2720
    2178
  -21846
  -21846
  -21846
  -21846
  -21846
  -21846
  -21846
    1900
     514
    1940
  -22526
    1940
   10242
    1980
  -32766
    1940
    2050
    1980
  -24574
    1980
    8194
    2020
  -32766
    2020
    8194
    1980
    2050
    2020
    2050
    1940
     514
    1980
     514
    2020
     514
    1940
    2050
    1980
    2050
    2020
    2050
    2020
    8194
    2020
    2050
    1940
     514
    1980
     514
    2020
     514
    1900
       2
    1940
       2
    1980
       2
    2020
       2
    2380
    8738
    2380
    8226
    2620
    8736
    2620
    8224
    2860
    8736
    2860
    8224
